home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctjja86.arc / VDISK.PAS < prev   
Pascal/Delphi Source File  |  1985-09-17  |  946b  |  31 lines
  1. Program VDISK;
  2. var
  3.   ConfigSys, ConfigOld:       text;
  4.   i, nparms:                  integer;
  5.   line:                       string[128];
  6.  
  7. begin
  8.   assign(ConfigSys, 'c:\config.sys');
  9.   nparms := ParamCount;
  10.   if nparms = 0 then  {any command line parms?}
  11.   begin               {no: copy file w/o vdisk to config.sys}
  12.     assign(ConfigOld, 'c:\config.nvd');
  13.     rewrite(ConfigSys);
  14.     reset(ConfigOld);
  15.     while not EOF(ConfigOld) do
  16.     begin
  17.       Readln(ConfigOld, line);
  18.       Writeln(ConfigSys, line);
  19.     end;
  20.   end
  21.   else begin          {append 'device=vdisk...' to config.sys}
  22.     append(ConfigSys);
  23.     write(ConfigSys,'device=vdisk.sys');
  24.     for i := 1 to nparms do
  25.       write(ConfigSys, ' '+ParamStr(i));
  26.       writeln(ConfigSys);
  27.   end;
  28.   close(ConfigSys);
  29.   MemW[$40:$72] := $1234;          {set warm boot flag in BIOS data seg}
  30.   inline($EA/0/0/$FFFF);           {JMP FFFF:0000 to reset system}
  31. end.